home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
EGYPTW.DIR
/
01713_Script_Sickness
< prev
next >
Wrap
Text File
|
1995-09-13
|
3KB
|
129 lines
global gQuest, gBeenClicked
on ESickRollovers
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
repeat while rollover(6)
EgyptCursor
puppetsprite 28, true
set the locH of sprite 28 to 468
set the locV of sprite 28 to 168
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateToSlowPauseFrom 6, 781, 2, "SE380200.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 28 to 968
puppetsprite 28, false
updatestage
else
if rollover(7) then
ArrowCursor
repeat while rollover(7)
EgyptCursor
puppetsprite 10, true
set the locH of sprite 10 to 541
set the locV of sprite 10 to 363
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
FeedTheSick
end repeat
end if
end if
end repeat
set the locH of sprite 10 to 941
puppetsprite 10, false
updatestage
else
if rollover(8) then
ArrowCursor
repeat while rollover(8)
set the locH of sprite 9 to 465
set the locV of sprite 9 to 304
updatestage
end repeat
set the locH of sprite 9 to 965
updatestage
else
if rollover(11) then
ArrowCursor
repeat while rollover(11)
set the locH of sprite 12 to 269
set the locV of sprite 12 to 363
updatestage
end repeat
set the locH of sprite 12 to 969
updatestage
else
if rollover(13) then
ArrowCursor
repeat while rollover(13)
set the locH of sprite 14 to 391
set the locV of sprite 14 to 221
updatestage
end repeat
set the locH of sprite 14 to 991
updatestage
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on FeedTheSick
ArrowCursor
set gAnimationcast1 = 784
set count = 0
puppetsound "SE380501.AIF"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 7 = gAnimationcast1 + 1
updatestage
wait .5
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast1 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait 1
set the castnum of sprite 7 = gAnimationcast1 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set count = count + 1
end repeat
set the castnum of sprite 7 = gAnimationcast1
updatestage
sound fadeout 1, 2*60
set gBeenClicked = 0
end